home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
bbs
/
tmg108.zip
/
MAGIC.ZIP
/
CONFIG.SCR
< prev
next >
Wrap
Text File
|
1996-09-01
|
2KB
|
89 lines
@#DEFINE
Location "tConfiguration Menu"
@#COMBAT
If ^VR01 == ENABLED
AddFlag CHAT_COMBAT DISABLED 2 C
EndIf
If ^VR01 == DISABLED
AddFlag CHAT_COMBAT ENABLED 2 C
EndIf
Return
@#PAGE
If ^VR02 == ENABLED
AddFlag CHAT_PAGE DISABLED 2 C
EndIf
If ^VR02 == DISABLED
AddFlag CHAT_PAGE ENABLED 2 C
EndIf
Return
@#ECHO
If ^VR03 == ENABLED
AddFlag CHAT_ECHO DISABLED 2 C
EndIf
If ^VR03 == DISABLED
AddFlag CHAT_ECHO ENABLED 2 C
EndIf
Return
@#EXPERT
If ^VR04 == ENABLED
Set ^CX02 0
EndIf
If ^VR04 == DISABLED
Set ^CX02 1
EndIf
Return
@#CONFIG_MENU
1234L
`c `%Configuration Menu:
`#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
`3
`3 (`#^MC01`3)Chat Combat `%: ^VR01
`3 (`#^MC02`3)Chat Page `%: ^VR02
`3 (`#^MC03`3)Chat Echo `%: ^VR03
`3 (`#^MC04`3)Expert Mode `%: ^VR04
`3 (`4^MC05`3)Leave Menu
@#MAIN
FlagValue ^VR01 CHAT_COMBAT C
FlagValue ^VR02 CHAT_PAGE C
FlagValue ^VR03 CHAT_ECHO C
If ^VR01 == -1
Set ^VR01 DISABLED
EndIf
If ^VR02 == -1
Set ^VR02 DISABLED
EndIf
If ^VR03 == -1
Set ^VR03 DISABLED
EndIf
If ^CX02 == 1
Set ^VR04 ENABLED
EndIf
If ^CX02 == 0
Set ^VR04 DISABLED
EndIf
Menu Config_Menu
DefaultCommand L
Writeln ""
Writeln " `$Configuration Menu : "
ReadMenuCommands ^VR20
Writeln "^VR20"
If ^VR20 == L
Halt
EndIf
If ^VR20 == 1
Gosub Combat
EndIf
If ^VR20 == 2
Gosub Page
EndIf
If ^VR20 == 3
Gosub Echo
EndIf
If ^VR20 == 4
Gosub Expert
EndIf
If ^VR20 == ?
DisplayMenu
EndIf
@#